home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
UTIL
/
SCREEN
/
FLD30
/
!FlDesk
/
!Run
< prev
next >
Wrap
Text File
|
1994-01-23
|
1KB
|
39 lines
|>!FlDesk.!Run
Set FlDesk$Dir <Obey$Dir>
|--------------------------------------
|Set following to 0 if you have an ARM2, else 1
|
Set FlDesk$Flags 0
|--------------------------------------
|Check for modules
|(FlDesk$Flags notifies !RunImage about the state
| of the machine. It is hoped that this mechanism
| will allow FlDesk to run on pre RO3 machines, but
| with limited functionality.
| The following are ORed together:
| 1 - ARM3 present
| 2 - ColourTrans present
| 4 - MessageTrans present
| 8 - RISCOS 3.00 or above
|)
SetEval FlDesk$Flags <FlDesk$Flags>+2+4+8
RMEnsure ColourTrans 0.00 SetEval FlDesk$Flags <FlDesk$Flags>-2
RMEnsure MessageTrans 0.00 SetEval FlDesk$Flags <FlDesk$Flags>-4
RMEnsure UtilityModule 3.00 SetEval FlDesk$Flags <FlDesk$Flags>-8
|--------------------------------------
|Pointers to user-defined directories
|
Set FlDesk$Rc <FlDesk$Dir>.Rc
Set FlDesk$Waste <FlDesk$Dir>.Waste
Set FlDesk$CurrentDir :0.$
|--------------------------------------
|Load sprites and go for main application
|
IconSprites <FlDesk$Dir>.!Sprites
IconSprites <FlDesk$Dir>.Sprites
WimpSlot -min 96K -max 96K
Run <FlDesk$Dir>.!RunImage